home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 5 / Apprentice-Release5.iso / Source Code / C / Applications / GW AdaEd 1.4.2 / GWAdaDemos / GWU Demos / diners.ada < prev    next >
Text File  |  1993-02-11  |  164b  |  12 lines
  1. --::::::::::
  2. --diners.ada
  3. --::::::::::
  4. WITH Room;
  5. PROCEDURE Diners IS
  6.  
  7. BEGIN
  8.   Room.Head_Waiter.Open_The_Room;
  9.   --LOOP
  10.     --DELAY 20.0;
  11.   --END LOOP;
  12. END Diners;